#### Quaest
### Fake News 
## Merge datasets
# 21 de Março, 2022 
### Adaptado 17 de Junho, 2022

rm(list=ls()); cat("\014")

# Pacotes
library(tidyverse)
library(rio)
library(here)
library(haven)
library(readxl)
library(dplyr)

### Onda 1 - sem identificadores ----
load(here("FSP_V2_22_Jan22.rda"))

### Mensagem ----
msg<-read_xlsx(here("FSP_V2_mensagem.xlsx"))
names(msg)

nrow(msg)
df<-merge(df, msg, by.x="id", by.y= "Qpanel_id", all.x=T)
nrow(df)

df<-df %>% rename(Read_Stimuli = notificacao)

### Onda 2 ----
wave2<-read_sav(here("FSP_V2_22 – Pós – PARA CAMPO_20 de março de 2022_12.25_SEM_IDS.sav"))
names(wave2); nrow(wave2)
wave2<-wave2 %>% filter(consent==1)
nrow(wave2)

names(wave2)<-paste0("w2_", names(wave2))

# Removendo variáveis identificadoras antes do consent
#names(wave2)
#drop_til<-grep("consent", names(wave2))-1
#wave2<-wave2[, -c(1:drop_til)]
names(wave2)

df_fin<-merge(df, wave2, 
              by.x="id",
              by.y="w2_Qpanel_id",
              all.x=T
)

# Saving dataset
write_dta(df_fin, "FSP_V2_22_Jan-Mar22.dta")
writexl::write_xlsx(df_fin, "FSP_V2_22_Jan-Mar22.xlsx")
write.csv(df_fin, file="FSP_V2_22_Jan-Mar22.csv")
save(df_fin, file="FSP_V2_22_Jan-Mar22.rda")

zip("FSP_V2_22_Jan-Mar22.zip",
    c("FSP_V2_22_Jan-Mar22.dta",
      "FSP_V2_22_Jan-Mar22.xlsx",
      "FSP_V2_22_Jan-Mar22.csv",
      "FSP_V2_22_Jan-Mar22.rda"))
#.